Unit
lmdctrl

Declaration

TLMDMouseWheelEvent = procedure(sender:TObject;MouseX, MouseY, Delta:Integer) of object;